APPENDIX 

Inventor: Jeffrey D. Marsh 

Title of Application: APPARATUS AND METHOD OF ON DEMAND PRINTING, 
BINDING, AND TRIMMING A PERFECT BOUND BOOK 

Visual Basic Control Code 
For Controller CONT 1 - AT6400 Controller 

Public Sub Form_Load() 
MessageWait = False 
HaveBook = False 
runcontinuous = False 
textstr = "" 

OffLineStr = "OFFLINE" & Chr(13) & Chr(10) 
OnLineStr = "ONLINE" & Chr(13) & Chr(10) 
inx - 0 

SonicBound = 0 
opencoms 
cmdClrAII_Click 
cmdStop.Visible = False 
BindOnly = False 
BBtoggle = True 

msJobsPath = "c:\integrated\jobs" 
ext = "PRM" 

Winsockl .RemoteHost = "192.168.1.42" 
Winsockl .RemotePort = 23 '80 'was 35 
Winsockl .Connect 

Winsock3. RemoteHost = "192.168.1.44" 
Winsock3. RemotePort = 23 '80 'was 35 
Winsock3.Connect 
End Sub 

Sub doit() 
' do we have to ?? 
Nextprm = 0 

chars_sent = Form1SendCommand(Out10T) 

chars_sent = Form1SendCommand(Out14T) 

WriteStart ' tell the daemon to restart 

chars_sent = Form1SendCommand(Out14F) 

Text2.Text = Nextprm 

Text2. Refresh 

BindStep = -1 

ShearStep = 0 

BindTime = 0 

ShearTime = 0 

CoolTime = 0 

NextNestMove = 0 

TransPos = 0 

NestPos = 0 
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45 shearloaded = False 

46 ShearEmpty = False 

47 OpenShear = False 

48 BindTemp = False 

49 ShearTemp = False 

50 ShearTemp2 = False 

51 ExitPushed = False 

52 BB1 Manual = False 

53 BB2Manual = False 

54 runcontinuous = False 

55 Ts1 = 0 
& Ts2 = 0 
If Ts3 = 0 
m Ts4 = 0 
59 Ts5 = 0 

H BinderReady = True 

If BinderLoaded = False 

fl StopPushed = False 

|3 NewPrint = False 

H chars_sent = Forml SendCommand("COMEXC1 ") 

§ Dim f 1 

6| Dim fso As New FileSystemObject, fldr As Folder 

(rf cmdGo.Visible = False 

P cmdExit.Visible = False 

69 cmdStop.Visible = True 

70 Set fs = CreateObject("Scripting.FileSystemObject") 

71 Set Fileptr = fs.CreateTextFile("c:\makebook.log", True) 

72 Fileptr.WriteLine ("Creating File") 

73 Fileptr.Close 

74 Text1.Text = "" 

75 ' Form4.Poll60003 is I/O 3 BookBlock #1 Dropped 

76 ' Form4.Poll60009 is I/O 8 BookBlock #2 Dropped 

77 ' Form4.Poll60006 is I/O 7 CoverlnPlace 

78 ' Form4.Poll60008 is I/O 5 CoverlnRail -> put Cover Printer Offline 

79 booksource = 1 

80 OnePrinting = False 

81 OneReady = True 

82 OneBBDone = False 

83 OneBinding = False 

84 TwoPrinting = False 

85 TwoReady = True 
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nestpos2 = 0 
ShearPos = 0 
ShearReady = True 



2 



APPENDIX 

Inventor: Jeffrey D. Marsh 

Title of Application: APPARATUS AND METHOD OF ON DEMAND PRINTING, 
BINDING, AND TRIMMING A PERFECT BOUND BOOK 

86 TwoBBDone = False 

87 TwoBinding = False 

88 CoverOnHold = False 

89 Winsockl .SendData (Chr(1 3) & Chr(1 0)) 

90 Winsockl GetData strData 

91 Do While strData <> "" 

92 Winsockl. GetData strData 

93 Loop 

94 Winsock3.SendData (Chr(1 3) & Chr(1 0)) 

95 Winsock3.GetData strData 

96 Do While strData <> "" 

97 Winsock3.GetData strData 

98 Loop 

99 Do 

lpO DoEvents 

l|) If StopPushed = True Then 

ill chars_sent = Forml SendCommand("COMEXC0") 

IS " 0") CharS ~ Sent = Form1 SendCommand ("D " + Str(TransStart) + ",0," + Str(NestZero) + 

1|S chars_sent = Forml SendCommand("GO 1 101") 

106 chars_sent = Forml SendCommand("OUT 000000000000000000000000") 

107 chuteup 

M If BindOnly Then 

ljif NestPos = 0 

l t§ chars_sent = Form1SendCommand("V ,20:D " + "," + Str(NestPos) + "„") 

1M chars_sent = Forml SendCommandfGO X1XX") 

ID pause (5) 

113 End If 

114 Exit Do 

115 End If 

116 Forml .Comm60001 .UpdateFastStatus 

1 17 AXIS1 POS = Forml .Comm60001 .GetFastStatusltem(AXIS1_MOTOR) 

1 18 AXIS2POS = Forml .Comm60001 .GetFastStatusltem(AXIS2_MOTOR) 

119 AXIS3POS = Forml .Comm60001 .GetFastStatusltem(AXIS3_MOTOR) 

120 AXIS4POS = Forml .Comm60001 .GetFastStatusltem(AXIS4_MOTOR) 

121 AxislStat = Forml .Comm60001 .GetFastStatusltem(AXIS1_STATUS) 

122 Axis2Stat = Forml .Comm60001 .GetFastStatusltem(AXIS2_STATUS) 

123 Axis3Stat = Forml .Comm60001 .GetFastStatusltem(AXIS3_STATUS) 

124 axis4stat = Forml .Comm60001 .GetFastStatusltem(AXIS4_STATUS) 

125 lnstat = Form1.Comm60001.GetFastStatusltem(INPUT STATUS) 

126 Forml. Poll60001. Update 

127 ShearLimit = Val(Form1 .P0II6OOOI .value) 

128 Form4.Poll60008.Update 

129 CoverRailValue = Val(Form4.Poll60008.value) 
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174 chars_sent = Forml SendCommand("D " + Str(TransStart) + ",0," + Str(NestZero) + 

175 ",0") 

176 chars_sent = Forml SendCommand("GO 1 101") 

177 chars_sent = Forml SendCommand("OUT 000000000000000000000000") 

178 cmdStop_Click 

179 Exit Do 

180 End If 

181 If OneReady = True Then ' And CoverOnHold = False Then 

182 WriteReadyOne 

183 OneReady = False 

184 End If 

185 

186 If TwoReady = True Then 'And CoverOnHold = False Then 

18.7 WriteReadyTwo 

1£8 TwoReady = False 

lis End If 

IBM 

lffi If OneReady = False And OneBBDone = False Then 

ill Winsockl .GetData strData 

l|| If lnStr(strData, "Printing") > 0 Then 

194 OnePrinting = True 

195 Textl Text = strData 
lf| strData = "" 

m Textl Text = "One Printing" + Chr(1 3) + Chr(1 0) + Textl Text 

19l Textl Refresh 

m End If 

200 If lnStr(Left(strData, 5), "Idle") > 0 And OnePrinting = True Then 

201 OneBBDone = True 

202 OnePrinting = False 

203 strData = "" 

204 Textl Text = "One Done" + Chr(1 3) + Chr(1 0) + Textl Text 

205 Textl. Refresh 

206 End If 

207 Winsockl .GetData strData 

208 Do While strData <> "" 

209 Winsockl .GetData strData 

210 Loop 

21 1 End If ' to OneReady TCP/IP Read 

212 

213 If TwoReady = False And TwoBBDone = False Then 

214 Winsock3.GetData strData 

215 If lnStr(strData, "Printing") > 0 Then 

216 TwoPrinting = True 

217 Textl Text = strData 
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218 strData = 

219 Textl .Text = "Two Printing" + Chr(1 3) + Chr(1 0) + Textl Text 

220 Textl .Refresh 

221 End If 

222 If lnStr(Left(strData, 5), "Idle") > 0 And TwoPrinting = True Then 

223 TwoBBDone = True 

224 TwoPrinting = False 

225 strData = "" 

226 Textl .Text = "Two Done" + Chr(1 3) + Chr(1 0) + Textl Text 

227 Textl .Refresh 

228 End If 

229 Winsock3.GetData strData 

230 Do While strData <> "" 

231 Winsock3.GetData strData 
222 Loop 

M End If ' to TwoReady TCP/IP Read 

2|f 

2H If CoverOnHold = False And CoverRailValue = 1 Then 

2M CoverOnHold = True 

2m End If 

2m 

239 If CoverOnHold = True And CoverRailValue = 0 Then 

243 CoverOnHold = False 
24J End If 

2p 

2 fl lf OpenShear = True And Val(Timer()) > ShearTime + 6 Then 'Global if to stop 

244 shear open 

245 chars_sent = Forml SendCommand(Out1 1 F) 'Stop Shear Open 

246 chars_sent = Forml SendCommand(Out12F) 

247 chars_sent = Forml SendCommand(Out20F) 

248 chars_sent = Forml SendCommand(Out21 F) 

249 OpenShear = False 

250 End If 

251 ************* Put goto 1 & 2 Routines, Clamp and goto start routines here 

252 

253 If BindStep = -1 And booksource = 1 And ((OneBBDone = True And 

254 CoverPlaceValue = 1 ) Or BB 1 Manual = True) Then 

255 BindStep = 0 

256 chars_sent = Forml SendCommand(Out2T) 'Open 

257 TransPos = Bookl Start 

258 sendstr = "A 1 0:V 5:D " + Str(TransPos) + ":GO 1XXX" 

259 chars_sent = Forml SendCommand(sendstr) 

260 WriteStatus ("BindStep = -1 OneBBDone") 

261 End If ' This starts the BB Controller to Release the Book 
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262 

263 If BindStep = -1 And booksource = 2 And ((TwoBBDone = True And 

264 CoverPlaceValue = 1 ) Or BB2Manual = True) Then 

265 BindStep = 0 

266 chars_sent = Form1SendCommand(Out2T) ' Open 

267 TransPos = Book2Start 

268 sendstr = "A 1 0:V 5:D " + Str(TransPos) + ":GO 1 XXX" 

269 chars_sent = FormlSendCommand(sendstr) 

270 WriteStatus ("BindStep = -1 TwoBBDone") 

271 End If ' This starts the BB Controller to Release the Book 

272 

273 If BindStep = 0 And BB1 DroppedValue = 1 And booksource = 1 Then 

274 BindStep = 1# 

27j> chars_sent = Forml SendCommand(Out5T) 'Glue pot motor ON 

2p6 chars_sent = Form"! SendCommand(Out2F) 'Stop open 

2 jf pause (0.2) 

2p§ chars_sent = Forml SendCommand(OutlT) ' Grab The BB 

2© BindTime = Val(Timer()) 

2m WriteStatus ("BindStep = 1 BookSource=1") 

2§\ End If 

281 

283 If BindStep = 0 And BB2Dropped Value = 1 And booksource = 2 Then 
2& BindStep = 1# 

28S chars_sent = Forml SendCommand(Out5T) 'Glue pot motor ON 

2$S chars_sent = Forml SendCommand(Out2F) 'Stop open 

2$1 pause (0.2) 

2$I chars_sent = Forml SendCommand(OutlT) ' Grab The BB 

289 BindTime = Val(Timer()) 

290 WriteStatus ("BindStep = 1 BookSource=2") 

291 End If 

292 

293 If BindStep = 1 # And Val(Timer()) > BindTime + 4 Then 

294 BindStep = 1 .2 

295 chars_sent = Forml SendCommand(Out1 F) 

296 TransPos = TransStart 

297 sendstr = "A 8:V 15:D " + Str(TransPos) + ":GO 1XXX" 

298 chars_sent = Forml SendCommand(sendstr) 

299 WriteStatus ("BindStep = 1.2 Start Move") 

300 End If 

301 

302 If BindStep = 1 .2 And AXIS1POS = TransPos Then 'Universal Jog 

303 BindStep = 1 .3 

304 chars_sent = Forml SendCommand(OutlF) 'Stop Clamp 

305 pause (0.2) 
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306 chars_sent = Form1SendCommand(Out2T) 'Clamp Out 

307 BindTime = Val(Timer()) 

308 End If 

309 

310 If BindStep = 1 .3 And Val(TimerQ) > BindTime + 1 .4 Then 'was 2 seconds 

311 BindStep = 1.4 

312 chars_sent = Form1SendCommand(Out2F) 'Clamp Stop 

313 chars_sent = Forml SendCommand(OutOT) 

314 TransPos = TransStart + 37000 

315 sendstr = "A 1 :V 1 :D " + StnTransPos) + ":GO 1XXX" 

316 chars_sent = Forml SendCommand(sendstr) 

317 BindTime = Val(Timer()) 

318 WriteStatus ("BindStep = 1 .4 BookSource=" + Str(booksource)) 

319 End If 

3m 

321 If BindStep = 1 .4 And Val(Timer()) > BindTime + 5 Then 

3ffl BindStep = 1 .5 

3|| chars_sent= Forml SendCommand(OutlT) 

3|f chars_sent = Forml SendCommand(OutOF) 

325 BindTime = Val(Timer()) 

3M WriteStatus ("BindStep = 1 .5 BookSource=" + Str(booksource)) 

327 End If " 

328 

32§ If BindStep = 1 .5 And Val(Timer()) > BindTime + 4 Then 

33J BindStep = 2# 

334 chars_sent = Forml SendCommand(Out1 F) 

332 WriteStatus ("BindStep = 2 BookSource=" + Str(booksource)) 

333 End If 

334 

335 If BindStep = 2# And (CoverPlaceValue = 1 Or BB1 Manual = True Or BB2Manual 

336 True) Then 1 Ready to go! 

337 BindStep = 2.1 

338 If booksource = 1 And runcontinuous = False Then BB1 Manual = False 

339 If booksource = 2 And runcontinuous = False Then BB2Manual = False 

340 If BindOnly <> True Then 

341 nextfile = "C:\integrated\jobs\" + Trim(Str(Nextprm)) + "CPRM" 

342 Set fso = CreateObject("Scripting.FileSystemObject") 

343 lffso.FileExists(nextfile) = True Then 

344 Set ts = fso.OpenTextFile(nextfile, ForReading) 

345 Do While Not (ts.AtEndOfStream) 

346 s = ts.ReadLine 

347 start = lnStr(s, "=") 

348 If start < 1 Then Exit Do 

349 arg = Left(s, start- 1) 
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350 value = Right(s, Len(s) - start) 

351 If (arg = "TITLE") Then 

352 Form1.Text14.Text = value + " " + nextfile 

353 Forml .Caption = "Perfect Finish - " & value 

354 End If 

355 |f(arg = "A")Then 

356 Forml .txtPrm(O) = value 

357 End If 

358 If (arg = "B") Then 

359 Form1.txtPrm(1) = value 

360 End If 

361 If (arg = "C") Then 

362 Form1.txtPrm(2) = value 

363 End If 

364 If (arg = "D") Then 

3|f Forml .txtPrm(3) = value 

3p End If 

3if If (arg = "E") Then 

3fei Forml .txtPrm(4) = value 

3<# End If 

3i# If (arg = "F") Then 

371 Forml .txtPrm(5) = value 

372 End If 

373 If (arg = "S") Then 
3C4 Form4.Text5 = value 
375 Form4.Text6 = value 
378 Form4. Refresh 

377 End If 

378 Loop 

379 Forml. Refresh 

380 ts.Close 

381 fso.DeleteFile nextfile 

382 Nextprm = Nextprm + 1 

383 End If ' to fileexists 

384 End If ' to bindonly check 

385 T1 = Val(Form1.txtPrm(0)) 

386 T2 = Val(Form1 .txtPrm(1 )) 

387 T3 = Val(Form1 .txtPrm(2)) 

388 T4 = Val(Form1 .txtPrm(3)) 

389 T5 = Val(Form1 .txtPrm(4)) 

390 T6 = Val(Form1 .txtPrm(5)) 

391 sendstr = Out3T 

392 chars_sent = Forml SendCommand(sendstr) 

393 WriteStatus ("BindStep = 2.1 Jogger Off, Mill On") 
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394 TransPos = BINDZERO + lnt(T2 * TransMult) 

395 sendstr = "A 1 0:V 5:D " + Str(TransPos) + ":GO 1 XXX" 

396 chars_sent = Forml SendCommand(sendstr) 

397 chars_sent = Forml SendCommand(OutlT) 

398 WriteStatus ("BindStep = 2 Move Transport, Move Cover") 

399 End If 
400 

401 If AXIS1POS > CutterStart And BindStep = 2.1 Then 

402 BindStep = 2.2 

403 sendstr = "V " + Form4.Text5 + ":GO 1XXXX" 

404 chars_sent = Forml SendCommand(sendstr) 

405 WriteStatus ("BindStep = 2.1 Set Mill Transport Speed") 

406 End If 

407 

m If AXIS1 POS > (WaveStart - lnt(TransMult * T1 )) And BindStep = 22 Then 

409 BindStep = 2.3 

4® sendstr = "V " + Form4.Text6 + ":GO 1XXXX" 

4jj CoolTime = (5 - Val(Form4.Text6)) * 5 

4|| If CoolTime < 0 Then CoolTime = 0 

4g chars_sent = Forml SendCommand(sendstr) 

414 WriteStatus ("BindStep = 2.2 Set Gluepot Transport Speed") 

415 End If 
4j(§ 

4k If AXIS1 POS > ThruWipe And BindStep = 2.3 Then 

4|| BindStep = 3 

4ia sendstr = "V 12 : GO 1XXXX" 

42B chars_sent = Forml SendCommand(sendstr) 

42=1 chars_sent = Forml SendCommand(Out1 F) 

422 End If 

423 

424 If AXIS 1 POS = TransPos And BindStep = 3 Then 

425 BindTime = Val(Timer()) 

426 BindStep = 4 

427 chars_sent = Forml SendCommand(Out3F + ":" + Out5F + "•" + Out6T) 'Mill off 

428 WriteStatus ("BindStep = 3 Mill Off, Glue Pot Off, Table Up") 

429 End If H 1 

430 

43 1 If BindStep = 4 And Val(Timer()) > (BindTime + 1 .9) Then 

432 BindTime = Val(Timer()) 

433 BindStep = 5 

434 chars_sent = Forml SendCommand(Out8T) 'Nippers In 

435 WriteStatus ("BindStep = 4 Table Pump Off Nippers In") 

436 End If ; 

437 
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438 If BindStep = 5 And Val(Timer()) > (BindTime + 7.9 + CoolTime) Then 

439 BindTime = Val(Timer()) 

440 BindStep = 6 

441 BindTemp = False 

442 chars_sent = Forml SendCommand(Out8F) 'Jaws OUT (turn motor off) 

443 WriteStatus ("BindStep = 5 Jaws Out") 

444 End If 

445 

446 If BindStep = 6 And Val(Timer()) > (BindTime + 0.2) And ShearReady Then 

447 BindTemp = True 

448 If booksource = 1 Then 

449 OneReady = True 

450 OneBBDone = False 

451 Textl Text = "#1 Through Bind" 

452 Textl Refresh 
4p| Else 

411 TwoReady = True 

45l TwoBBDone = False 

m Textl Text = "#2 Through Bind" 

411 Textl. Refresh 

4W End If 

459 

460 BindStep = 9 

46J Forml SendCommand (Out9F) 'Nest Clamp 

4ffj Forml SendCommand (Out1 5T) 'Solenoid 

463j Forml SendCommand (Out17T) 'Rot Rev 
Forml SendCommand (Out1 6T) 'Rotate 

465 ShearTime = Val(Timer()) 

466 DoOpenShear 

467 BindTime = Val(Timer()) 

468 TransPos = NestCLH - lnt((T1 / 2 - T2) * TransMult) - 37000 

469 chars_sent = Forml SendCommand("V 1 0" + ":" + "D " + StnTransPos) + 

470 ",0,0,150000:" + "GO 11XX") 

471 chars_sent = Forml SendCommand(Out6F) ' Table DOWN 

472 Forml SendCommand (Out15F) 

473 WriteStatus ("BindStep = 7 Rotate Nest, Move To Drop") 

474 End If 

475 

476 If BindStep > 8 And Val(Timer()) > (BindTime + 1 .9) And BindTemp = True Then 

477 BindTemp = False 

478 End If 

479 

480 If BindStep = 9 And TransPos = AXIS1 POS Then 

481 chuteup 
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482 BindStep = 10 

483 NestPos = NestUp 

484 NestRotPos = NestZero 

485 chars_sent = FormlSendCommandC'A ,„10:V ,,,15") 

486 ShearMove = ShearToNestCL + lnt((0.5 * T1 + 1 .75) * ShearMult) 

487 ShearPos = ShearMove 

488 chars_sent = Form1SendCommand("D " + "," + Str(NestPos) + "„" + 

489 Str(ShearPos) + ":" + "GO X1 X1 ") 

490 WriteStatus ("BindStep = 9 Nest Up, Move Shear In To Guide Paper") 

491 End If 

492 

493 'bindonly step 10 

494 If BindStep = 1 0 And NestPos = AXIS2POS And ShearPos = AXIS4POS And 

495 BindOnly = True Then 
4|6 BindStep = 1 1 

4§f chars_sent = Form1SendCommand(Out2T) 

4§f pause (2) 

4j# chars_sent = Forml SendCommand(Out2F) 

5(S$ chars_sent = Forml SendCommand(Out9T) 'Nest Clamp IN 

5(1 ShearPos = 100000 

5§' NestPos = 400000 

503 chars_sent = Forml SendCommand("V ,15 : D ," + Str(NestPos) + "„" + 

504 Str(ShearPos) + ": GOX1X1 ") 

5&5 WriteStatus ("BindStep = 10 Nudge, Clamp Book, Move Down") 

508 If booksource = 1 Then 
50i booksource = 2 

561 Else 

509 booksource = 1 

510 End If 

511 End If 
512 

513 

514 If BindStep = 10 And NestPos = AXIS2POS And ShearPos = AXIS4POS Then 

515 BindStep = 11 

516 The Nudge 

517 chars_sent = Form1SendCommand(Out2T) 

518 pause (2) 

519 chars_sent = Forml SendCommand(Out2F) 

520 TransPos = NestCLH - lnt((T1 / 2 - T2) * TransMult) '- 1 5000 

521 chars_sent = Forml SendCommand(Out2F + ":" + "A 1 : V 2: D " + Str(TransPos) + 

522 ":" + "Go 1") "03/03/00 

523 For i = 1 To 5000 

524 Forml .Comm60001 .UpdateFastStatus 

525 xpos = Forml .Comm60001 .GetFastStatusltem(AXIS1_MOTOR) 
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526 If xpos = TransPos Then i = 1 1 000 

527 Call Timer1_Timer 

528 Next i 

529 If i< 10000 Then 

530 MsgBox "Failed move!" 

531 DoAReset 

532 End 

533 End If 

534 NestPos = NestUp - 20000 

535 TransPos = TransPos - 5000 

536 chars_sent = Forml SendCommand("D " + Str(TransPos) + "," + Str(NestPos) + " 

537 : GO 1 1XX") 

538 pause (1) 

539 chars_sent = Forml SendCommand(Out9T) 'Nest Clamp IN 
5m pause (2) 

5|1 BindTime = Val(Timer()) 

5§f NestPos = NestDN 

5|# chars_sent = Forml SendCommand("V ,15:D " + "," + Str(NestPos) + " ") 

5jff chars_sent = Forml SendCommand("GO X1XX") 

5M ChuteValue = Val(Form4.Poll60002.value) 

5j6 If ChuteValue <> 1 Then 

547 MsgBox "delivery chute failed to return!" 

548 DoAReset 
5m End 

55© End If 

55J WriteStatus ("BindStep = 10 Nudge, Clamp Book, Move Down") 

552 If booksource = 1 Then 

5& booksource = 2 

554 Else 

555 booksource = 1 

556 End If 

557 End If 
558 

559 
560 

561 If BindStep = 1 1 And (AXIS2POS > 800000 Or (AXIS2POS > 300000 And BindOnly 

562 = True)) Then 

563 BindStep = 12 

564 '*********** W here to go 

565 If booksource = 2 Then 

566 TransPos = Book2Start - 37000 

567 Else 

568 TransPos = TransStart 

569 End If 
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570 chars_sent = Forml SendCommandfA 1 5") 

571 chars_sent = Forml SendCommand("V 1 5") 

572 chars_sent = Forml SendCommandfD " + Str(TransPos)) 

573 chars_sent = Forml SendCommand("GO 1 XXX") 

574 chars_sent = Forml SendCommand(OutlT) 

575 shearloaded = True 

576 ShearEmpty = False 

577 'ShearStep = 0 removed 04/27 for dual printer 

578 ShearReady = False 

579 Ts1 = T1 

580 Ts2 = T2 

581 Ts3 = T3 

582 Ts4 = T4 

583 Ts5 = T5 

5|4 WriteStatus ("BindStep = 1 1 not BindOnly Move Transport to:" & Str(TransPos)) 

585 End If 

586 

5il If BindStep = 12 Then 

581 BindStep = 13 

5§9 End If 

5% 

591 If BindStep = 1 3 And TransPos = AXIS1 POS Then 

5§S BindTime = Val(Timer()) 

5<8 BindStep = 14 

591 chars_sent = Forml SendCommand(Out1 F) 

59j pause (0.2) 

59l chars_sent = Forml SendCommand(Out2T) 

597 WriteStatus ("BindStep = 13 Open Jaws") 

598 End If 

599 

600 If BindStep = 14 And Val(Timer()) > (BindTime + 3) Then 

601 BindStep = -1 

602 chars_sent = Forml SendCommand(Out2F) 

603 BinderReady = True 

604 WriteStatus ("BindStep = 14 Transport ready at: " & Str(TransPos)) 

605 End If " 

606 

607 If BindOnly And ShearStep = 0 And shearloaded = True Then 

608 NextNestMove = Val(Timer()) 

609 shearloaded = False 

610 ShearStep = 18 

611 End If 
612 
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613 If shearloaded = True And ShearStep = 0 And AXIS2POS = NestPos And 

614 Val(TimerO) > (ShearTime + 4) Then '03/03/00 

615 S1=Ts1 

616 S2 = Ts2 

617 S3 = Ts3 

618 S4 = Ts4 

619 S5 = Ts5 

620 charssent = Forml SendCommand(Out1 1 F) 

621 chuteup 

622 ShearStep = 1 

623 ShearPos = ShearToNestCL + lnt((S3 - S1 / 2) * ShearMult) 

624 chars_sent = Forml SendCommand("A ,10„20" + ":" + "V ,,,20" + ":" + "D " + ",„" 

625 + Str(ShearPos) + ":" + "GO )00<r) 

626 WriteStatus ("ShearLoaded and ShearStep=1 S3=" + Str(S3) + " S1 =" + Str(S1 )) 

627 End If 

628 
629 
oil) 

631 If ShearStep = 1 And AXIS2POS = NestPos And AXIS4POS = ShearPos Then 

632 'START CUT ONE 

633 ShearStep = 2 

634 shearloaded = False 

635 chars_sent = Forml SendCommand(Out20T) 'Start the Clamp Down 
6|6 chars_sent = Forml SendCommand(Out1 2F) 

off chars_sent = Forml SendCommand(Out1 1T) 

638 ShearTime = Val(Timer()) 

63p Forml. Poll60001. Update 

64 = 6 Shearvalue = Val(Form1 .Poll60001 .value) 

641 Do While Shearvalue < 1 And Val(Timer()) < ShearTime + 4 'Wait for Clamp 

642 Pressure 

643 Forml. P0II6OOOI. Update 

644 Shearvalue = Val(Form1 .P0II6OOOI .value) 

645 Loop 

646 chars_sent = Forml SendCommand(Out20F) 

647 chars_sent = Forml SendCommand(Out21T) 'Start the Blade Down 

648 ShearTime = Val(Timer()) 

649 WriteStatus ("ShearStep = 1 Clamp Down Cut One") 

650 End If 

651 

652 If ShearStep = 2 And Val(Timer()) > ShearTime + 3 Then 

653 ShearTime = Val(Timer()) 

654 Form1.Poll60001. Update 

655 Shearvalue = Val(Form1 .P0II6OOOI .value) 

656 Do While Shearvalue < 1 And Val(Timer()) < ShearTime + 4 
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657 Form1.Poll60001. Update 

658 Shearvalue = Val(Form1 .Poll60001 .value) 

659 Loop 

660 pause (1) 

661 chars_sent = Forml SendCommand(Out1 1 F) 

662 chars_sent = Forml SendCommand(Out1 2F) 

663 pause (0.5) 

664 chars_sent = Forml SendCommand(Out20F) 

665 chars_sent = Forml SendCommand(Out21 F) 

666 ShearStep = 3 

667 WriteStatus ("ShearStep = 2 End Cut One") 

668 End If 

669 

670 If ShearStep = 3 Then 

671 ShearStep = 4 

6ff ShearTime = Val(Timer()) 

6§| DoOpenShear 

6|| WriteStatus ("ShearStep = 3 Open Shear Started after CUT ONE") 

615 End If 

M If ShearStep = 4 And Val(Timer()) > (ShearTime + 2) Then 

6f8 ShearStep = 5 

6p ShearPos = ShearPos + lnt((0.75 * ShearMult)) 'Changed from 1 .25 to .75 
68§ 02/02/00 

683 chars_sent = Forml SendCommand("D „," + Str(ShearPos) + ":" + "GO XXX1") 

68=2 WriteStatus ("ShearStep = 4 Move Shear Back") 

681 End If 

684 

685 If ShearStep = 5 And AXIS4POS = ShearPos And Val(Timer()) > (ShearTime +4 5) 

686 Then 

687 ShearStep = 5.5 

688 NestMoveUp = lnt((S1 / 2 - (S1 - S3) - 1 .5) * ElevMult) '1 gives 1/2" clear 

689 NestPos = NestDN - NestMoveUp 

690 chars_sent = Forml SendCommand("D ," + Str(NestPos) + ":" + "GO X1XX") 

691 ShearTemp = True 

692 pause (0.2) 

693 chars_sent = Forml SendCommand(Out15F) 'Solenoid Off 

694 chars_sent = Forml SendCommand(Out16F) 'Rot Off 

695 chars_sent = Forml SendCommand(Out1 7F) 'Rot Rev 

696 chars_sent = Forml SendCommand(Out16T) 'Rot 

697 pause (0.5) 

698 WriteStatus ("ShearStep = 5 Shut Shear Off, Move Nest, Wait, Rotate Nest") 

699 End If ' 

700 
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701 If ShearStep = 5.5 And AXIS2POS = NestPos Then 

702 ShearStep = 6 

703 NestMoveUp = lnt((S1 / 2 - (S1 - S3) - 1) * ElevMult) '1 gives 1/2" clear 

704 NestPos = NestDN - NestMoveUp 

705 chars_sent = Forml SendCommand("D ," + Str(NestPos) + ":" + "GO X1XX") 

706 ShearTemp = True 

707 WriteStatus ("ShearStep = 5.5 Complete Nest Move") 

708 End If 

709 If ShearStep = 6 And AXIS2POS = NestPos And OpenShear = False Then 

710 ShearStep = 7 

711 ShearTemp = False 

712 ShearPos = ShearToNestBot + lnt(S4 * ShearMult) 

713 chars_sent = Forml SendCommand("V„,15:D „," + Str(ShearPos) + ":" + "GO 

714 XXX1") 

7jt5 WriteStatus ("ShearStep = 6 Move Shear In") 

IB End If 

70 

M If ShearStep = 7 And AXIS4POS = ShearPos Then 

7jS ShearStep = 8 

72B chars_sent = Forml SendCommand(Out20T) 'Start the Clamp Down 

72-J( chars_sent = Forml SendCommand(Out12F) 

722 chars_sent = Forml SendCommand(Out1 1T) 

723 ShearTime = Val(Timer()) 

724 Forml. Poll60001. Update 

723 Shearvalue = Val(Form1 .P0II6OOOI .value) 

726 Do While Shearvalue < 1 And Val(Timer()) < ShearTime + 4 'Wait for Clamp 
723 Pressure 

728 Forml. P0II6OOOI. Update 

729 Shearvalue = Val(Form1 .P0II6OOOI .value) 

730 Loop 

731 chars_sent= Forml SendCommand(Out20F) 

732 chars_sent = Form1SendCommand(Out21T) 'Start the Blade Down 

733 ShearTime = Val(Timer()) 

734 WriteStatus ("ShearStep = 7 Clamp Down Cut TWO") 

735 End If 

736 

737 If ShearStep = 8 And Val(Timer()) > ShearTime + 3 Then 'Reduced Shear Time 2 

738 02/02/00 

739 ShearStep = 9 

740 ShearTime = Val(Timer()) 

741 Forml. P0II6OOOI. Update 

742 Shearvalue = Val(Form1 .P0II6OOOI .value) 

743 Do While Shearvalue < 1 

744 Forml .P0II6OOOI. Update 
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745 Shearvalue = Val(Form1 Poll60001 .value) 

746 Loop 

747 pause (1) 

748 chars_sent = Form1SendCommand(Out1 1F) 

749 chars_sent = Forml SendCommand(Out12F) 

750 pause (0.5) 

751 chars_sent = Form1SendCommand(Out20F) 

752 chars_sent = Forml SendCommand(Out21 F) 

753 WriteStatus ("ShearStep = 8 End Cut TWO") 

754 End If 

755 

756 If ShearStep = 9 Then 

757 ShearStep = 10 

758 ShearTime = Val(Timer()) 
7@ DoOpenShear 

7& WriteStatus ("ShearStep = 9 Open Shear Started after CUT TWO") 

M End If 

M If ShearStep = 1 0 And Val(Timer()) > (ShearTime + 1 ) Then 
764 ShearStep = 11 

7® ShearPos = ShearPos + lnt(0.75 * ShearMult) ' Changed from 1 .25 to .75 

766 02/02/00 

767 chars_sent = Forml SendCommandfD „," + Str(ShearPos) + ":" + "GO XXX1 ") 
im WriteStatus ("ShearStep = 10 Move Shear Out") 

7#; End If 

7 ii 

7ff If ShearStep = 1 1 And AXIS4POS = ShearPos And Val(Timer()) > (ShearTime + 

772 3.5) Then 

773 ShearStep =12 

774 chars_sent = Forml SendCommand(Out1 7F) 'Rot Rev 

775 chars_sent = Forml SendCommand(Out16F) 'Rot Off 

776 pause (1) 

777 chars_sent = Forml SendCommand(Out1 5T) 'Solenoid Off 

778 chars_sent = Forml SendCommand(Out1 6T) 'Rot 

779 WriteStatus ("ShearStep = 1 1 Rotate Nest") 

780 End If 

781 

782 If ShearStep = 1 2 And Val(Timer()) > (ShearTime + 3) Then 

783 ShearStep = 13 

784 NestPos = Nestl 80Up + lnt(2 * ElevMult) 

785 chars_sent = Forml SendCommandfD ," + Str(NestPos) + ":" + "GO X1XX") 

786 WriteStatus ("ShearStep = 12 Move Nest") 

787 End If 

788 
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789 If ShearStep = 13 And OpenShear = False Then 

790 ShearStep = 14 

791 FinalNestPos = Nestl 80Up 

792 ShearPos = ShearToNestCL + lnt(S1 / 2 * ShearMult) - lnt(S3 * ShearMult) + 

793 lnt(S5 * ShearMult) 

794 chars_sent = Form1SendCommand("D ," + Str(FinalNestPos) + " " + 

795 Str(ShearPos)) 

796 chars_sent = Forml SendCommand("GO XXX1 ") 

797 pause (1) 

798 chars_sent = Forml SendCommand("GO X1XX") 

799 WriteStatus ("ShearStep = 13 Move Shear and Nest to final third cut position") 

800 End If 

801 

802 If ShearStep = 14 And AXIS4POS = ShearPos And AXIS2POS = FinalNestPos 

803 Then 

8§ ShearStep = 15 

8fef ShearTime = Val(Timer()) 

8g chars_sent = Forml SendCommand(Out15F) 'Solenoid Off 

8i) chars_sent = Forml SendCommand(Out20T) 'Start the Clamp Down 

8<p chars_sent = Forml SendCommand(Out12F) 

80S chars_sent = Forml SendCommand(Out1 1T) 

810 ShearTime = Val(Timer()) 

814 Forml Poll60001. Update 

811 Shearvalue = Val(Form1 .P0II6OOOI. value) 

815 Do While Shearvalue < 1 And Val(Timer()) < ShearTime + 4 'Wait for Clamp 
811 Pressure 

8 if Forml. P0II6OOOI. Update 

8K) Shearvalue = Val(Form1 .P0II6OOOI .value) 

817 Loop 

818 chars_sent = Forml SendCommand(Out20F) 

819 chars_sent = Form1SendCommand(Out21T) 'Start the Blade Down 

820 ShearTime = Val(Timer()) 

821 WriteStatus ("ShearStep = 14 Clamp Down Cut THREE") 

822 End If 

823 

824 If ShearStep = 1 5 And Val(Timer()) > ShearTime + 3 Then ' reduced shear time b> 

825 2 02/02/00 

826 ShearStep = 16 

827 ShearTime = Val(Timer()) 

828 Forml. Poll60001. Update 

829 Shearvalue = Val(Form1 .Poll60001 .value) 

830 Do While Shearvalue < 1 

831 Forml .Poll60001. Update 

832 Shearvalue = Val(Form1 .P0II6OOOI .value) 
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833 Loop 

834 pause (1) 

835 chars_sent = Forml SendCommand(Out1 1 F) 

836 chars_sent = Forml SendCommand(Out12F) 

837 pause (0.5) 

838 chars_sent = Forml SendCommand(Out20F) 

839 chars_sent = Forml SendCommand(Out21 F) 

840 WriteStatus ("ShearStep = 15 End Cut THREE") 

841 End If 

842 

843 If ShearStep = 16 Then 

844 ShearStep =17 

845 ShearTime = Val(Timer()) 

846 DoOpenShear 

843 WriteStatus ("ShearStep = 16 Open Shear Started after CUT THREE") 

841 ShearTemp = False 

841 ShearTemp2 = False 

851 End If 

8|| 

8|| If ShearStep = 1 7 And Val(Timer()) > ShearTime + 2 And axis4stat = 2621 92 Then 

8^3 ShearStep = 18 

854 s ShearPos = 100000 

8|s chars_sent = Forml SendCommand('V ,20„20: D ,„" + Str(ShearPos)) 

856 chars_sent = Forml SendCommand("GO XXX1") 

85;§ NextNestMove = Val(Timer()) 

858 WriteStatus ("ShearStep = 17 Move Shear Back") 

85S ShearTemp = True 

86# End If 

861 

862 If ShearStep = 1 8 And Val(Timer()) > (NextNestMove + 1 ) And AXIS4POS = 

863 ShearPos Then 

864 ShearStep = 19 

865 NestPos = 400000 

866 chars_sent = Forml Send Com ma nd("V ,20: D ," + Str(NestPos)) 

867 chars_sent= Forml SendCommand("GO X1 XX") 

868 chars_sent = Forml SendCommand(Out1 7F) 'Rot Rev 

869 chars_sent = Forml SendCommand(Out1 6F) 'Rot Off 

870 chars_sent = Forml SendCommand(Out1 5T) 'Solenoid ON 

871 chars_sent = Forml SendCommand(Out17T) 'Rot Rev 

872 chars_sent = Forml SendCommand(Out1 6T) 'Rot 

873 chutedown 

874 WriteStatus ("ShearStep = 1 8 Move Nest Up, Rotate Nest, Call ChuteDown") 



876 
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877 If ShearStep = 19 And ChutelsDown = True Then 

878 ShearStep = 20 

879 chars_sent = Forml SendCommand(Out1 6F) "Rot off 

880 chars_sent = Forml SendCommand(Out1 7F) 'Rot revOff 

881 chars_sent = Forml SendCommand(Out15F) 'Solenoid Off 

882 pause (1) 

883 chars_sent = Forml SendCommand(Out1 6T) 'Rot 

884 WriteStatus ("ShearStep = 19 and Doing Second Rotation") 

885 NextNestMove = Val(Timer()) 

886 End If 

887 

888 If ShearStep = 20 And Val(Timer()) > (NextNestMove + 1 ) Then 

889 ShearStep = 21 

890 ShearTemp = False 
8ft ShearTemp2 = False 

sM chars_sent = Forml SendCommand(Out1 1 F) 

&M chars_sent = Forml SendCommand(Out9F) 'Nest Clamp 

894 ShearTime = Val(Timer()) 

8f-| WriteStatus ("ShearStep = 20 Open Book Clamp") 

896 NextNestMove = Val(Timer()) 

891 pause (2) 
898 End If 

899 

901 If ShearStep = 21 And Val(Timer()) > (NextNestMove + 2) Then 

9m ShearStep = 22 

90 j chars_sent = Forml SendCommand(Out1 6F) 'Rot Off 

903f chars_sent = Forml SendCommand(Out1 7F) 'Rot Off 

904" NestPos = 0 

905 chars_sent = Forml SendCommand('V ,20: D ," + Str(NestPos)) 

906 chars_sent = Forml SendCommand("GO X1XX") 

907 chuteup 

908 ShearTime = Val(Timer()) 

909 Forml SendCommand (Out1 5T) 'Solenoid 

910 Forml SendCommand (Out17T) 'Rot Rev 

911 Form 1 SendCommand (Out1 6T) 'Rotate 

912 WriteStatus ("ShearStep = 21 Clamp & Rotate Off, Home Axis Two") 

913 End If ' 
914 

915 If ShearStep = 22 And Axis2Stat = 262192 And Val(Timer()) > (ShearTime + 

916 Then 

917 ShearStep = 0 

918 ShearReady = True 

919 Forml SendCommand (Out1 5F) 'Solenoid 

920 Forml SendCommand (Out1 6F) 'Rotate 
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921 FormlSendCommand (Out17F) 'Rot Rev 

922 WriteStatus ("ShearStep = 22 Zero Axis Two") 

923 End If 

924 

925 Loop 

926 

927 End Sub 



Basic Code for Printer 110 Controller CONT 2 
Controller RPC-150 

1 001 1 NOTES B&W#1.TXT 04/20/2001 

2 002 ' CONFIGURE DIG I/O BOARD 
J 003 CONFIG PIO 1,0,0,1,1,0 

!4 01 0 ' INPUTS AND OUTPUTS 

| 011' LINE EVENT 

i 012' INPUTS (BOARD POS#) 

a 013'OPTO(0) PRINTER SOLENOID 

HI 014'OPTO(1) TRANSPORT LIMIT SWITCH 

"5 01 5 ' OPTO(2) TRAY DOWN LIMIT 

W 016'OPTO(3) TRAY UP LIMIT 

VI 017'OPTO(4) CLAMP LIMIT 

U 018' 

iM 030 ' OUTPUTS 

m 031 ' OPTO 8 TRAY ROTATE MOTOR 

\i 032 ■ OPTO 9 VIBRATOR 

1;I 033' OPTO 10 BOOK IN PLACE TO I/O ON MAIN UNIT 

17 034 ' OPTO 11 15 VDC POWER TO MOTOR 

18 035' OPTO 12 MOTOR REVERSER 

19 036" OPTO 13 UNUSED 

20 037 ' 

21 038 ' 

22 039 ' 

23 040 ' 

24 118" *****SUBROUTINES***** 

25 119' 

26 120' 

27 121 1 

28 122' 

29 123 ' 

30 124 ' 

31 900 ' INITIALZE VARIABLES 

32 91 0 M 1 =0 : ' TRANSPORT STATE 
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33 920 V1 =0 : ' VIBRATOR STATE 

34 1000 

35 1 020 ' START OF MAIN LOOP 

36 1 030 IF OPTO(0)=1 .AND. V1 =0 THEN OPTO 9,1 : V1 =1 

37 1 050 IF OPTO(1 )=1 .AND. M1 =0 THEN GOSUB 5000 

38 1 060 IF OPTO(1 )=0 .AND. M1 =1 THEN GOSUB 5500 

39 2000 GOTO 1020 

40 

41 5000 ' TRAY ROTATE AND DUMP ROUTINE 

42 5010 M1=1 :' TRANSPORT IS HERE 

43 501 1 DELAY 2 :' LET THE TRANSPORT SETTLE 

44 5015 OPTO 12,0: OPTO 11,1 

45 5020 IF OPTO(4)=0 THEN GOTO 5020 

46 5022 DELAY 1.5 

© 5025 OPTO 1 1 ,0 : DELAY .5 

M 5100 OPTO 8,1 

IS 51 1 0 IF OPTO(2)=0 THEN GOTO 5110 

m 51 15 OPTO 8,0 

M 5117 DELAY 1 

m 5120 OPTO 12,1:OPTO 11,1 

53 5130 DELAY 3 

54 5140 OPTO 1 1,0:OPTO 12,0 
35 5180 OPTO 9,0 :V1=0 

si 5190 OPTO 10,1 

& 5199 RETURN 
58! 

51 5500 * TRAY UP, RESET 1 0 

60 5510 ' RESET THE CLAMP 

61 5550 OPTO 1 2,0 : OPTO 1 1 ,1 

62 5560 IF OPTO(4)=0 THEN GOTO 5560 

63 5570 OPTO 11,0 

64 5580 OPTO 10,0 

65 5581 OPTO 8,1 

66 5582 IF OPTO(3)=0 THEN GOTO 5582 

67 5583 OPTO 8,0 

68 5584 OPTO 12,1 :OPTO 11,1 

69 5585 DELAY 5 

70 5586 OPTO 1 1 ,0 : OPTO 1 2,0 

71 5590 M1=0 

72 5599 RETURN 
73 
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Basic Code for Printer 200 Controller CONT 3 
Controller RPC-52 



1 


001 REM NOTES BB#2.TXT 04/06/2001 


2 


002 REM CONFIGURE DIG I/O BOARD 


3 


003 REM CONFIG LINE 100,5,255,255,0 


4 


004 REM Do this only once it is saved in System NVR 


5 


010 REM INPUTS AND OUTPUTS 


6 


011 REM LINE EVENT 


7 


012 REM INPUTS (BOARD POS #) 


8 


013 REM 100 TRANSPORT LIMIT SWITCH 


9 


014 REM 101 PRINTER SOLENOID 


10 


015 REM 102 TRAY DOWN LIMIT 


11 


016 REM 103 TRAY UP LIMIT 




017 REM 104 


is 


018 REM 105 




030 REM OUTPUTS 




031 REM 108 TRAY ROTATE MOTOR 




032 REM 109 15 V MOTOR ON 




033 REM 110 DC MOTOR REVERSER 


m 


034 REM 1 1 1 VIBRATOR 


$ 


035 REM 112 


w 


036 REM 113 BOOK IN PLACE 


it 


037 REM 


22 


038 REM 




039 REM 


2% 


040 REM 


is 


118 REM *****SUBROUTINES***** 


26 


119 REM 


27 


120 REM 


28 


121 REM 


29 


122 REM 


30 


123 REM 


31 


124 REM 


32 


125 REM 7000 DELAY USES D1 


33 


126 REM 


34 


127 REM 


35 


900 REM INITIALZE VARIABLES 


36 


910 M1=0 : REM TRANSPORT STATE 


37 


920 V1=0 : REM VIBRATOR STATE 


38 


1000 


39 


1020 REM START OF MAIN LOOP 


40 


1030 IFLINE(101)=0 .AND. V1=0 THEN LINE111.1 : V1 = 


41 


1050 IF LINE(100)=0 .AND. M1=0 THEN GOSUB 5000 
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APPENDIX 

Inventor: Jeffrey D. Marsh 

Title of Application: APPARATUS AND METHOD OF ON DEMAND PRINTING, 
BINDING, AND TRIMMING A PERFECT BOUND BOOK 



42 1 060 IF LINE(100)=1 .AND. M1=1 THEN GOSUB 5500 

43 2000 GOTO 1020 
44 

45 5000 REM TRAY ROTATE AND DUMP ROUTINE 

46 501 0 M1 =1 :REM TRANSPORT IS HERE 

47 501 1 D1 =2:GOSUB 7000 :REM LET THE TRANSPORT SETTLE 

48 5015LINE110,0:LINE109,1 

49 5020 IF LINE(104)=1 THEN GOTO 5020 

50 5022 D1 =1 .5:GOSUB 7000 

51 5025 LINE109.0 : D1=.5 : GOSUB 7000 

52 5100 LINE 108,1 

53 5110 IF LINE(102)=1 THEN GOTO 5110 

54 5115 LINE1 08,0 

55 5117 D1=1:GOSUB 7000 
m 5120LINE110,1:LINE109,1 
If 5130 D1=3:GOSUB 7000 
II 5140 LINE109,0:LINE1 10,0 
1 5180LINE111,0:V1=0 

S 5190 LINE1 13,1 

1 5199 RETURN 
© 

63 5500 REM TRAY UP, RESET 1 1 3 

64 551 0 REM RESET THE CLAMP 
m 5550 LINE1 08,1 

A 5560 IF LINE(103)=1 THEN GOTO 5560 

m 5570 LINE108.0 

6M 5580 LINE1 13,0 

69 5581 LINE110,0:LINE109,1 

70 5582 IF LINE(104)=1 THEN GOTO 5582 

71 5583 LINE1 09,0 :D1 =.5 : GOSUB 7000 

72 5584 LINE1 10,1 :LINE109,1 

73 5585 D1 =7:GOSUB 7000 

74 5586 LINE109,0:LINE1 10,0 

75 5590 M 1=0 

76 5599 RETURN 

77 7000 REM SUB DELAY 

78 7001 CLEAR TICK(0) 

79 7002 T1=0 

80 7010 DO 

81 7015T1=TICK(0) 

82 7020 WHILE TKD1 

83 7045 RETURN 
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